home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Lang / Yax / fac.yax next >
Lisp/Scheme  |  1992-09-02  |  103b  |  3 lines
  1. (defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
  2. (write 'compute factorial of: ' (fac (readint)))
  3.